home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / gameser5 / collide.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1983-05-26  |  1.6 KB  |  46 lines
  1. 1  '*************************************************************************
  2. 2  '                 From Personal Computing Age
  3. 3  '                    Volume 2.2  Page 32
  4. 4  '                       By Peter Kahn
  5. 5  '*************************************************************************
  6. 6  '
  7. 10  KEY OFF:CLS:WIDTH 80: DEFINT I-K
  8. 20  KDB = VAL(RIGHT$(TIME$,2))*VAL(MID$(TIME$,4,2))
  9. 30  RANDOMIZE KDB:CLS
  10. 100  LOCATE 10,17:PRINT "THE BULLET IS CONTROLLED BY THE LEFT AND RIGHT":LOCATE 12,21:PRINT "CURSOR CONTROLS ON THE NUMERIC KEYPAD."
  11. 110  LOCATE 15,5:PRINT "SPEED OF GAME - ENTER (1) FOR FAST, (2) FOR MEDIUM, OR (3) FOR SLOW"
  12. 120  LOCATE 15,75:INPUT Q
  13. 130  IF ((Q<1) OR (Q>3)) THEN LOCATE 20,33:PRINT "ENTER 1,2, OR 3!:LOCATE 15,75:PRINT "               ":GOTO 120
  14. 140  IF Q=1 THEN S=200 ELSE IF Q=2 THEN S=250 ELSE S=400
  15. 150  COLOR 15,0,5
  16. 160  DEF SEG=0 : IF (PEEK(1040) AND 48) = 48 THEN DEF SEG = &HB000 ELSE DEF SEG = &HB800
  17. 180  CLS
  18. 190  LOCATE 25,1:PRINT "MISSED":LOCATE 25,70:PRINT "HITS"
  19. 200  L=0:M=0:H=0:M$="YOU GOT ME"
  20. 210  KEY (12) ON
  21. 220  KEY (13) ON
  22. 230  ON KEY (12) GOSUB 390
  23. 240  ON KEY (13) GOSUB 410
  24. 250  I=3760+C:R=RND*160: IF R<10 OR R>150 THEN 250
  25. 252  J=INT(R)-160:IF ((J MOD 2) <> 0) THEN J=J-1
  26. 260  I=I-160:J=J+160
  27. 270  IF (I<1760) THEN M=M+1:LOCATE 25,8:PRINT M;:L=L+1:IF L=10 THEN GOTO 430 ELSE GOTO 250
  28. 280  POKE I,127
  29. 290  POKE J,234
  30. 300  IF I=J THEN PLAY "MBT255L32O4CDEFGCDG":GOTO 350
  31. 310  FOR K=1 TO S:NEXT K
  32. 330  POKE I,32:POKE J,32
  33. 340  GOTO 260
  34. 350  POKE I,3:H=H+1:LOCATE 25,75:PRINT H
  35. 370  L=L+1:IF L=10 THEN 430
  36. 380  GOTO 250
  37. 390  POKE I,127:POKE I,32:I=I-2
  38. 400  RETURN
  39. 410  POKE I,127:POKE I,32:I=I+2
  40. 420  RETURN
  41. 430  CLS:LOCATE 10,36:PRINT "SCORE":LOCATE 10,42:PRINT 25*H:LOCATE 15,32:PRINT "HIT PERCENTAGE":LOCATE 15,48:PRINT INT((H/(H+M))*100):LOCATE 15,52:PRINT "%"
  42. 440  LOCATE 23,29:PRINT "WANT TO PLAY AGAIN (Y/N)"
  43. 445  LOCATE 23,53:Z$=INKEY$ : IF Z$ = "" THEN 445
  44. 447  IF Z$<>"n" AND Z$<>"N" THEN 180
  45. 450  RUN "MASTERP"
  46.